home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Power 1997 December
/
MACPOWER-1997-12.ISO.7z
/
MACPOWER-1997-12.ISO
/
MacPowerオリジナル
/
Edutainment World
/
チャンプジム for DEMO
/
DIR
/
shared.cst
/
00008_Script_8
< prev
next >
Wrap
Text File
|
1997-09-29
|
3KB
|
123 lines
global User1,User2,User3,User4,User5
global tempUser,tempCountry
global REmittList,REpunchList,REsandList,REroadList,REskipList,REshadowList
global mittGO,punchGO,sandGO,roadGO,skipGO,shadowGO
global DAYS
on SaveResultMitt
--SetResult(tempUser,tempCountry,1,REmittList)
-----臚ノgノ蠻[ノjノìノOヌど。ヌ©ヌゥヌど。ヌιサヌ「ヌゥ
if min(REmittList) = "1" and max(REmittList) = "1" then
set mittGO = "SUMI"
else
set mittGO = "GO"
end if
set USER = "User" & tempUser
set USER = value(USER)
setAt USER,5,mittGO
setAt USER,3,(the short date)
set DAYS = integer(DAYS-1)
setAt USER,11,DAYS
--SetUserInfo(tempUser,USER)
end
on SaveResultPunch
SetResult(tempUser,tempCountry,2,REpunchList)
-----臚ノgノ蠻[ノjノìノOヌど。ヌ©ヌゥヌど。ヌιサヌ「ヌゥ
if min(REpunchList) = "1" and max(REpunchList) = "1" then
set punchGO = "SUMI"
else
set punchGO = "GO"
end if
set USER = "User" & tempUser
set USER = value(USER)
setAt USER,6,punchGO
setAt USER,3,(the short date)
set DAYS = integer(DAYS-1)
setAt USER,11,DAYS
SetUserInfo(tempUser,USER)
end
on SaveResultSand
SetResult(tempUser,tempCountry,3,REsandList)
-----臚ノgノ蠻[ノjノìノOヌど。ヌ©ヌゥヌど。ヌιサヌ「ヌゥ
if min(REsandList) = "1" and max(REsandList) = "1" then
set sandGO = "SUMI"
else
set sandGO = "GO"
end if
set USER = "User" & tempUser
set USER = value(USER)
setAt USER,7,sandGO
setAt USER,3,(the short date)
set DAYS = integer(DAYS-1)
setAt USER,11,DAYS
SetUserInfo(tempUser,USER)
end
on SaveResultRoad
SetResult(tempUser,tempCountry,4,REroadList)
-----臚ノgノ蠻[ノjノìノOヌど。ヌ©ヌゥヌど。ヌιサヌ「ヌゥ
if min(REroadList) = "1" and max(REroadList) = "1" then
set roadGO = "SUMI"
else
set roadGO = "GO"
end if
set USER = "User" & tempUser
set USER = value(USER)
setAt USER,8,roadGO
setAt USER,3,(the short date)
set DAYS = integer(DAYS-1)
setAt USER,11,DAYS
SetUserInfo(tempUser,USER)
end
on SaveResultSkip
SetResult(tempUser,tempCountry,5,REskipList)
-----臚ノgノ蠻[ノjノìノOヌど。ヌ©ヌゥヌど。ヌιサヌ「ヌゥ
if min(REskipList) = "1" and max(REskipList) = "1" then
set skipGO = "SUMI"
else
set skipGO = "GO"
end if
set USER = "User" & tempUser
set USER = value(USER)
setAt USER,9,skipGO
setAt USER,3,(the short date)
set DAYS = integer(DAYS-1)
setAt USER,11,DAYS
SetUserInfo(tempUser,USER)
end
on SaveResultShadow
SetResult(tempUser,tempCountry,6,REshadowList)
-----臚ノgノ蠻[ノjノìノOヌど。ヌ©ヌゥヌど。ヌιサヌ「ヌゥ
if min(REshadowList) = "1" and max(REshadowList) = "1" then
set shadowGO = "SUMI"
else
set shadowGO = "GO"
end if
set USER = "User" & tempUser
set USER = value(USER)
setAt USER,10,shadowGO
setAt USER,3,(the short date)
set DAYS = integer(DAYS-1)
setAt USER,11,DAYS
SetUserInfo(tempUser,USER)
end